home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb8.arc / FREESPAC.INC < prev    next >
Text File  |  1985-02-23  |  678b  |  21 lines
  1. Procedure free_space(drive_letter : char);
  2. var
  3.   dl,pos : integer;
  4. begin
  5.   drive_letter := upcase(drive_letter);
  6.   case drive_letter of
  7.     'A'..'H'  : begin
  8.                   dl := ord(drive_letter)-ord('A')+1;
  9.                   pos := dl * 9 - 8;
  10.                   drawbox (pos,1,pos+8,5,white,black,'[ '+drive_letter+' ]');
  11.                   R.ax :=$36 shl 8;          { disk free space }
  12.                   R.dx := dl;
  13.                   MsDos(R);
  14.                   bts := r.bx; bts := bts * 1024;
  15.                   writeln ('  ',r.bx,'k');
  16.                   writeln ('   O');
  17.                   write   ('   |');
  18.                 end;
  19.   end; { case }
  20. end;
  21.